home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 07 (1983-03)(Softdisk)(Side B).do / GREEK.COLUMNS.TUTORIAL.bas < prev    next >
BASIC Source File  |  1996-12-24  |  7KB  |  80 lines
  1. 10  REM ************************
  2. 20  REM *    GREEK COLUMNS     *
  3. 30  REM *      TUTORIAL        *
  4. 40  REM *   BY SANDY SMITH     *
  5. 50  REM *  2052 BRENDLA ROAD   *
  6. 60  REM *   CLEARWATER, FL     *
  7. 70  REM *       33515          *
  8. 80  REM ************************
  9. 90 D$ =  CHR$(4): PRINT D$;"BLOAD RUNPACK": PRINT D$;"BLOAD COLUMNS.STR"
  10. 100  REM * TITLE PAGE *
  11. 110  TEXT : HOME : VTAB 23: FOR I = 1 TO 39: PRINT "*";: NEXT I: PRINT : VTAB 1: FOR I = 1 TO 39: PRINT "*";: NEXT I: PRINT : FOR I = 1 TO 22: PRINT "*";: HTAB 39: PRINT "*": NEXT I
  12. 120  VTAB 3: INVERSE : HTAB 12: PRINT  SPC( 18);: PRINT : VTAB 4: HTAB 12: PRINT "    G R E E K     "
  13. 130  VTAB 5: HTAB 12: PRINT  SPC( 18);: PRINT : VTAB 6: HTAB 12: PRINT "  C O L U M N S   "
  14. 140  VTAB 7: HTAB 12: PRINT  SPC( 18);: PRINT : VTAB 8: HTAB 12: PRINT " T U T O R I A L  ": VTAB 9: HTAB 12: PRINT  SPC( 18);: PRINT : NORMAL 
  15. 150  VTAB 13: HTAB 11: PRINT "A HUMANITIES PROGRAM"
  16. 160  VTAB 16: HTAB 14: PRINT "BY SANDY SMITH"
  17. 180  VTAB 21: HTAB 9: INVERSE : PRINT "PRESS A KEY TO CONTINUE": NORMAL : WAIT  -16384,128: POKE  -16368,0
  18. 190  GOTO 1010
  19. 200  REM * JUSTIFICATION ROUTINE
  20. 210 I = 1
  21. 220  PRINT :J = 0
  22. 230 I$ = ""
  23. 240 J$ =  MID$ (A$,I,1):I = I +1: IF I > LEN(A$) GOTO 300
  24. 250  IF J$ < >" "  THEN I$ = I$ +J$: GOTO 240
  25. 260  IF J + LEN(I$) = 40  THEN  PRINT I$;: GOTO 220
  26. 270  IF J + LEN(I$) = 39  THEN  PRINT I$: GOTO 220
  27. 280 I$ = I$ +" ":J = J + LEN(I$): IF J >40  THEN  PRINT : PRINT :J =  LEN(I$)
  28. 290  PRINT I$;: GOTO 230
  29. 300  IF J + LEN(I$) >40  THEN  PRINT : PRINT 
  30. 310  PRINT I$; RIGHT$(A$,1): RETURN 
  31. 400  REM * PRESS KEY ROUTINE *
  32. 410  SPEED= 255: VTAB 23: HTAB 9: INVERSE : PRINT "PRESS A KEY TO CONTINUE": NORMAL : WAIT  -16384,128: POKE  -16368,0: SPEED= 255: RETURN 
  33. 500  REM * PAGE TITLE ROUTINE *
  34. 510  SPEED= 255: HOME : HTAB (20 - LEN(T$)/2): INVERSE : PRINT T$: NORMAL : PRINT : SPEED= 255: RETURN 
  35. 600  REM * PICTURE ROUTINE *
  36. 610  HGR :M = (N -1) *2: POKE 8050, PEEK(16386 +M): POKE 8058, PEEK(16386 +M): POKE 8049, PEEK(16385 +M): POKE 8054, PEEK(16385 +M) +1: CALL 8048: RETURN 
  37. 1000  REM * GENERAL INFORMATION *
  38. 1010 T$ = "** GENERAL INFORMATION **": GOSUB 510: SPEED= 255
  39. 1020 A$ = "A COLUMN IS A VERTICAL STRUCTURE OR PILLAR DESIGNED CHIEFLY TO SUPPORT A WEIGHT ABOVE. IT USUALLY SERVES BOTH TO STRENGHTHEN AND TO DECORATE A BUILDING.": GOSUB 210
  40. 1030 A$ = "IT MAY BE CONSTRUCTED OF STONE, WOOD, METAL, MARBLE, BRICK OR OTHER MATERIALS.": GOSUB 210
  41. 1040 A$ = "A TYPICAL COLUMN HAS 3 PARTS: A BASE, A SHAFT, AND A CAPITAL.": GOSUB 210: GOSUB 410
  42. 1050  GOSUB 510:A$ = "THE SHAFT IS THE CENTRAL UPRIGHT PORTION. IT IS USUALLY CYLINDRICAL IN SHAPE, BUT IT MAY BE MODELED ON ANY REGULAR GEOMETRIC FIGURE.": GOSUB 210
  43. 1060  PRINT :A$ = "THE BASE FORMS THE LOWEST PART. IT SUPPORTS THE SHAFT, WHICH IS CROWNED BY THE CAPITAL.": GOSUB 210: GOSUB 410: GOSUB 510
  44. 1070 A$ = "ENTABLATURE IS THE PART OF A CLASSICAL BUILDING BETWEEN THE TOPS OF THE COLUMNS AND THE ROOF. IT HAS THREE SECTIONS.": GOSUB 210
  45. 1080  PRINT :A$ = "THE ARCHITRAVE ON THE BOTTOM CONNECTS THE COLUMNS. THE FRIEZE IN THE MIDDLE MAY BE DECORATED WITH CARVED FIGURES.": GOSUB 210
  46. 1090 A$ = "THE CORNICE ON TOP JUTS OUT TO SUPPORT THE EDGE OF THE ROOF.": GOSUB 210: GOSUB 410: GOSUB 510
  47. 1100  VTAB 4:A$ = "THE GREEK STYLES MAY BE SEPARATED INTO THREE CLASSIC ORDERS OF ARCHITECTURE:": GOSUB 210: PRINT : PRINT : HTAB 15: PRINT "DORIC": PRINT : HTAB 15: PRINT "IONIC": PRINT : HTAB 15: PRINT "CORINTHIAN": GOSUB 410
  48. 1110 X =  FRE(0)
  49. 2000  REM * THE DORIC COLUMN *
  50. 2010 T$ = "** THE DORIC COLUMN **": GOSUB 510
  51. 2020 A$ = "THE DORIC COLUMN HAS A PLAIN SHAFT WITHOUT A BASE, WHICH TAPERS SLIGHTLY UPWARD, THE HEIGHT FROM 5 TO 7 TIMES ITS LOWER DIAMETER.": GOSUB 210
  52. 2030  PRINT :A$ = "ALONG THE SHAFT, 16 TO 20 VERTICAL, SHALLOW GROOVES, OR FLUTES, MEET IN SHARP EDGES.": GOSUB 210: GOSUB 410: GOSUB 510
  53. 2040 A$ = "THE CAPITAL HAS TWO PARTS OF EQUAL THICKNESS. THE UPPER, A SQUARE BLOCK, OR PLINTH, CALLED THE ABACUS, RESTS ON THE LOWER, A CIRCULAR PILLOWLIKE TABLET CALLED THE ECHINUS.": GOSUB 210
  54. 2050  PRINT :A$ = "THE MOST CELEBRATED EXAMPLE OF DORIC ARCHITECTURE IS THE STATELY PARTHENON, ON THE ACROPOLIS OF ATHENS.": GOSUB 210: GOSUB 410: GOSUB 510
  55. 2060 A$ = "THE PARTHENON WAS BUILT BETWEEN 447 AND 438 B.C. IN HONOR OF ATHENA, THE PATRON GODDESS OF THE CITY.": GOSUB 210
  56. 2070  PRINT :A$ = "LIKE OTHER PUBLIC BUILDINGS OF ITS TIME, IT WAS BUILT OF MARBLE AND THEN BRIGHTLY PAINTED.": GOSUB 210: GOSUB 410
  57. 2080 X =  FRE(0):N = 1: GOSUB 610: GOSUB 410
  58. 3000  REM * THE IONIC COLUMN *
  59. 3010  HGR : TEXT :T$ = "** THE IONIC COLUMN **": GOSUB 510
  60. 3020 A$ = "THE IONIC COLUMN WAS INVENTED BY THE ASIATIC GREEKS. IT IS A MORE SLENDER, GRACEFUL, AND DECORATIVE STRUCTURE THAN THE DORIC.": GOSUB 210
  61. 3030  PRINT :A$ = "ITS SHAFT RISES FROM A CIRCULAR OR POLYGONAL BASE TO A CAPITAL ADORNED WITH AN ECHINUS AND VOLUTES (SCROLLS) CONNECTED BY A HORIZONTAL BAND.": GOSUB 210: GOSUB 410: GOSUB 510
  62. 3040 A$ = "ITS HEIGHT RANGES FROM 7 1/2 TO 9 1/2 TIMES ITS DIAMETER. ALONG THE SHAFT ARE 24 FLUTES, SEPARATED BY NARROW FILLETS (FLAT SURFACES).": GOSUB 210
  63. 3050  PRINT :A$ = "AMONG THE FINEST EXAMPLES OF IONIC COLUMNS IS THE ERECHTHEUM AT ATHENS.": GOSUB 210: GOSUB 410
  64. 3060 X =  FRE(0):N = 2: GOSUB 610: GOSUB 410
  65. 4000  REM * CORINTHIAN COLUMN *
  66. 4010  HGR : TEXT :T$ = "** THE CORINTHIAN COLUMN **": GOSUB 510
  67. 4020 A$ = "THE CORINTHIAN COLUMN IS THE MOST ORNAMENTAL. A VARIATION OF IONIC, IT HAS A SLENDER, FLUTED SHAFT BUT A MORE ELABORATE CAPITAL.": GOSUB 210
  68. 4030  PRINT :A$ = "THE CAPITAL CONSISTS OF A BELL-SHAPED CORE SURROUNDED BY TWO OR THREE ROWS OF ACANTHUS LEAVES.": GOSUB 210: GOSUB 410: GOSUB 510
  69. 4040  PRINT :A$ = "ABOVE THESE LEAVES, PAIRS OF BRANCHING SCROLLS MEET AT THE CORNERS IN SPIRAL VOLUTES.": GOSUB 210
  70. 4050  PRINT :A$ = "THE MONUMENT OF LYSIKRATES AT ATHENS IS AN EXAMPLE.": GOSUB 210: GOSUB 410
  71. 4060 X =  FRE(0):N = 3: GOSUB 610: GOSUB 410
  72. 5000  REM * END OF PROGRAM *
  73. 5010  HGR : TEXT :T$ = "BIBLIOGRAPHY": GOSUB 510: SPEED= 255: PRINT 
  74. 5020  PRINT "THE WORLD BOOK ENCYCLOPEDIA, 1975 ED.": PRINT "--- ----- ---- ------------": PRINT "     S.V. "; CHR$(34);"ARCHITECTURE."; CHR$(34)
  75. 5030  PRINT : PRINT "--------. S.V. "; CHR$(34);"COLUMN."; CHR$(34)
  76. 5040  PRINT : PRINT "--------. S.V. "; CHR$(34);"ANCIENT GREECE."; CHR$(34)
  77. 5050  PRINT : FOR I = 1 TO 39: PRINT "=";: NEXT : PRINT 
  78. 5060  PRINT : PRINT "GRAPHICS CREATED THROUGH THE USE OF:": PRINT : HTAB 5: PRINT "THE GRAPHICS MAGICIAN": HTAB 5: PRINT "THE COMPLETE GRAPHICS SYSTEM II": HTAB 5: PRINT "AND SPECIAL EFFECTS"
  79. 5070  PRINT : PRINT "BY PENGUIN SOFTWARE."
  80. 5080  PRINT : END